﻿Imports System.Windows.Forms
Imports CapaNegocio

Public Class frmAgregarEditarExamen

    Private Sub frmExamen_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        'frmtest = False
        '''''''''''''''''''''''PROBANDO
        lexamenglobal.DGVExamenes.DataSource = cE.mtdListarExamenesTodos
        lexamenglobal.DGVExamenes.RefreshEdit()
    End Sub

    Private Sub frmExamen_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        ''''''''''''''''''''''''PROBANDO
        lexamenglobal.DGVExamenes.DataSource = cE.mtdListarExamenesTodos
        lexamenglobal.DGVExamenes.RefreshEdit()
        'MsgBox("CERRANDO")

    End Sub

    Private Sub frmExamen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'BORRAR''''''''''
        cE.codigo_Examen = varCodEx
        '''''''''''''''''

        'se cargan los datos cada vez que se ingresa al formulario
        'pero al momento de editar un campo, se ara una consulta al servidor
        'mostrando los datos del examen que se quiere realizar
        txtnombre.Text = cE.nombre_Examen
        txtdescripcion.Text = cE.descripcion_Examen
        txtprecio.Text = cE.precio_Examen.ToString

        'se cargaran los tipos de examenes en el combobox, pero de estos tipos de examenes
        'que se cargaran, seleccionara uno al momento de presionar el boton Editar Examen de frmlistaexamen
        If cE.mtdListarTiposExamenes.Rows.Count > 0 Then
            cmbtipo.DataSource = cE.mtdListarTiposExamenes
            cmbtipo.ValueMember = cE.mtdListarTiposExamenes.Columns(0).ToString
            cmbtipo.DisplayMember = cE.mtdListarTiposExamenes.Columns(0).ToString
            'cmbtipo.Text = ""
            cmbtipo.SelectedItem = 0
        End If

        'cmbtipo.SelectedIndex = cE.ExamenTipo_codigo_ExamenTipo

    End Sub


    Private Sub btnAgregarExamen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregarExamen.Click
        Dim nexamen As New clsExamen()
        nexamen.nombre_Examen = txtnombre.Text
        nexamen.descripcion_Examen = txtdescripcion.Text
        nexamen.precio_Examen = Decimal.Parse(txtprecio.Text)
        nexamen.ExamenTipo_codigo_ExamenTipo = cmbtipo.SelectedIndex + 1
        nexamen.mtdCrearExamen() 'SE CREA EXAMEN

        lexamenglobal.DGVExamenes.DataSource = cE.mtdListarExamenesTodos
        lexamenglobal.DGVExamenes.Refresh()
        Me.Close()
    End Sub

    Private Sub btnEditarExamen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarExamen.Click, Button1.Click

        Dim nnexamen As New clsExamen()
        nnexamen.codigo_Examen = varCodEx
        nnexamen.nombre_Examen = txtnombre.Text
        nnexamen.descripcion_Examen = txtdescripcion.Text
        nnexamen.precio_Examen = Decimal.Parse(txtprecio.Text)
        nnexamen.ExamenTipo_codigo_ExamenTipo = cmbtipo.SelectedIndex + 1
        nnexamen.mtdEditarExamen()
        lexamenglobal.DGVExamenes.DataSource = cE.mtdListarExamenesTodos
        lexamenglobal.DGVExamenes.Refresh()
        Me.Close()

    End Sub

    
End Class
